DEFINE VARIABLE lOk AS LOGICAL    NO-UNDO.

FOR EACH besteding
WHERE besteding.medkode = "DaOl"
AND   besteding.datum   GE DATE(5,1,2005)
AND   besteding.datum   LE DATE(5,31,2005):
      RUN tg/p/updaktie.p
         (INPUT  besteding.aktienr,
          INPUT  besteding.aktkode,
          INPUT  besteding.medkode,
          INPUT  besteding.datum,
          INPUT  besteding.minuten,
          OUTPUT lOk).

END.
